home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group97a.txt / 000120_icon-group-sender _Mon Apr 21 10:25:00 1997.msg < prev    next >
Internet Message Format  |  2000-09-20  |  3KB
  1. Received: from kingfisher.CS.Arizona.EDU by cheltenham.cs.arizona.edu; Mon, 21 Apr 1997 13:23:14 MST
  2. Received: by kingfisher.CS.Arizona.EDU; (5.65v3.2/1.1.8.2/08Nov94-0446PM)
  3.     id AA05093; Mon, 21 Apr 1997 13:23:14 -0700
  4. Date: Mon, 21 Apr 1997 10:25:00 -0700
  5. From: swampler@noao.edu (Steve Wampler)
  6. Subject: Re: Comments on Icon Routine
  7. To: icon-group@cs.arizona.edu
  8. Message-Id: <swampler-9703211724.AA003615590@orpheus.gemini.edu>
  9. In-Reply-To: <3358C3DD.23EE@airmail.net>
  10. Errors-To: icon-group-errors@cs.arizona.edu
  11. Status: RO
  12. Content-Length: 2322
  13.  
  14.  
  15.  
  16. Nathanael Graham wrote:
  17. > To fellow Iconers:
  18. > 
  19. >    This week at work I wanted to take documents created by MS-Word or 
  20. > WordPerfect and break down the 80+ character lines into lines of no more 
  21. > than 80 characters and I figured that this would be a perfect use for 
  22. > Icon.  The routine did not take too long to code and, at the suggestion 
  23. > of a fellow worker, I generalized it to allow for lines of any specified 
  24. > length.  Assuming the Icon routine is called truncate.icn/truncate.exe,
  25. > one would type the following on the command line:
  26. > 
  27. >     truncate infile.txt outfile.txt 80
  28. > 
  29. > This would:
  30. > 
  31. >     . Read in each record from infile.txt
  32. >     . After deleting leading spaces, it would write the record to       
  33. >       outfile.txt, if the record length was 80 or less
  34. >     . If the record length was greater than 80, then it would "break up" 
  35. >       the record on spaces, scanning for them from position 81 and going 
  36. >       backwards.  Once it found the space, it would write from the      
  37. >       beginning of the record to the space and repeat the same          
  38. >       algorithm starting with what was left of the record after the     
  39. >       space.  If no space was found in any record or piece thereof of   
  40. >       length 80 or more, then the first 80 characters would be written, 
  41. >       and the rest of the record would be handled per above.
  42. > 
  43.  
  44. I suspect you're going to see a lot of different ways to do this!  Here's one
  45. off the top of my head - I'm sure there are better ways.
  46.  
  47. procedure main(args)
  48.  
  49.     in  := open(args[1], "r") | stop("Cannot open ", args[1])
  50.     out := open(args[2], "w") | stop("Cannot open ", args[2])
  51.     rmargin := args[3] | 80
  52.  
  53.     while produce(out, read(in), rmargin)
  54.  
  55. end
  56.  
  57. procedure produce(f, s, rm)
  58.  
  59.     s := ltrim(s)
  60.     if *s <= rm
  61.         then write(f, s)
  62.         else {
  63.             reverse(s[1+:rm]) ? {
  64.                  suffix := reverse(tab(upto(' \t'))) | ""
  65.                  write(f, reverse(tab(0)))
  66.                  produce(f, suffix||s[rm+1:0], rm)
  67.                  }
  68.             }
  69.  
  70.     return
  71. end
  72.  
  73. procedure ltrim(s)
  74.     return s ?:= (tab(many(' ')), tab(0))
  75. end
  76.  
  77. --
  78. Steve Wampler - swampler@gemini.edu [Gemini 8m Telescopes Project (under AURA)]
  79. O Sibile, si ergo, fortibus es inero.
  80. Nobile, demis trux.  Demis phulla causan dux.
  81.